Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/tbbs/prgsourc.zip/HOMES.ZIP/HOMES.PRG

Text File | 1996-01-14 | 4KB | 117 lines

SET EXCLUSIVE OFF
SET ESCAPE OFF
SET DELETED ON
SET CONFIRM OFF
SET INTENSITY OFF
SET PROCEDURE TO screen
SET PROCEDURE TO agent

SET FORMAT TO fscr NOCLEAR
offset = At(Chr(38)+Chr(38), OptData())
IF SubStr(OptData(), offset + 2, 1) = " "
    offset = offset + 1
ENDIF
offset = offset + 3

homes = SubStr(OptData(), offset, 2)               && get H#.DBF
areas = homes + "areas"                            && H#AREAS.DBF
subs  = homes + "subs"                             && H#SUBS.DBF
ho    = homes + "home"                             && H#HOME.NDX
su    = homes + "subs"                             && H#HOME.NDX
ar    = homes + "area"                             && H#AREA.NDX
pi    = homes + "pic"                              && H#PIC.NDX

city = RTrim(SubStr(OptData(), offset+3))          && get city/cnty name

hu = uName()

SELECT a                                         && a=H#.DBF
USE (homes) INDEX (ho),(pi)

DECLARE tarray[51]
tarray[1] = "EMPTY"
tg = 0

SELECT b                                         && b=H#AREAS.DBF
USE (areas) INDEX (ar)

SELECT c                                         && c=REALTOR.DBF
USE realtor INDEX realtor

SELECT d                                         && d=HUSER.DBF
USE huser INDEX huser

SELECT e
USE (subs) INDEX (su)


DO cls WITH 0,0,23,79
DO BoxW WITH 5,7,16,67
SET COLOR TO B/W
@ 6,33 SAY                          "HomeBase"
@ 7,21 SAY              "The Real Estate Database for TBBS"
SET COLOR TO N/W
@ 9,21 SAY              "Copyright 1996, Darryl Kerkeslager"
@ 10,30 SAY                       "LocalNet BBS"
@ 12,12 SAY     "If you're selling your home and it's not listed here -"
@ 13,12 SAY     "ask your broker, Why Not?"
SET COLOR TO W+/W
@ 15,22 SAY               "───── Any Key to Continue ─────"
key = Inkey(20)

DO cls WITH 5,7,16,67
DO BoxW WITH 7,7,16,71
@ 8,9 SAY  "Homes advertised are available on an equal opportunity basis."
@ 9,9 SAY  "This service is advertising, and is not associated with any"
@ 10,9 SAY "real estate broker, nor does this BBS serve as a broker or"
@ 11,9 SAY "assist in the buying or selling of real estate. This BBS, the"
@ 12,9 SAY "author, nor the Sysop are responsible for any errors in the"
@ 13,9 SAY "listings. All photographs are property of the listing agent"
@ 14,9 SAY "or agency, and they retain all applicable rights."
SET COLOR TO W+/W
@ 15,23 SAY                "───── Any Key to Continue ─────"
key = Inkey(30)


SELECT f
USE c:\flagset\flagset INDEX c:\flagset\name

SEEK hu

IF real .AND. realv                              && If Broker or Sysop
   own = realo
   IF uPriv() = 255
      DO cls WITH 2,0,20,79
      DO BoxW WITH 6,15,9,42
      @ 7,17 SAY "Select the Agency to use"
      @ 8,17 SAY "in edit fuctions."
      comp = " "
      DO pcomp
      SELECT f
   ELSE
      agnte = mix
      comp = realco
   ENDIF
   USE
   SELECT a
   DO edit
   RELEASE realco,realo,mix
ENDIF
DO cls WITH 0,0,23,79
SET COLOR TO R/R
@ 0,0 CLEAR TO 1,79
SET COLOR TO GR+/R
@ 0,3 SAY city
@ 0,Col()+1 SAY "Real Estate Areas"
SET COLOR TO W+/R
@ 0,73 SAY "AREA  "
@ 1,73 SAY "SCREEN"
DO ta

**************************************************
*       Main Program

DO parea WITH 1

QUIT